home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / extras / programm / gemfsc20 / gemfsc20.lzh / GEMFBIND / VCELLARY.S < prev    next >
Text File  |  1993-03-16  |  1KB  |  49 lines
  1. ;*========================================================================
  2. ;* VDIFAST Public Domain VDI bindings.
  3. ;*========================================================================
  4.  
  5.  
  6. ;*------------------------------------------------------------------------
  7. ;* Cell array.    What a weird function.
  8. ;*------------------------------------------------------------------------
  9.  
  10.           globl     _v_cellarray
  11. _v_cellarray:
  12. ;    .cargs    #8,handle.w,pxy.l,rowlen.w,elused.w,numrows.w,wrmode.w,colarray.l
  13.  
  14. handle      =         8
  15. pxy       =         10
  16. rowlen      =         14
  17. elused      =         16
  18. numrows   =         18
  19. wrmode      =         20
  20. colarray  =         22
  21.  
  22.           link        a6,#0
  23.  
  24.           move.w    numrows(a6),d0        ;* Save numrows and number of
  25.           move.w    elused(a6),d1        ;* elements used for intin count
  26.           move.w    wrmode(a6),-(sp)    ;* calculation later.  Stack the
  27.           move.w    d0,-(sp)            ;* extra contrl parms first.
  28.           move.w    d1,-(sp)
  29.           move.w    rowlen(a6),-(sp)
  30.  
  31.           mulu        d1,d0                ;* Calc intin count=numrows*elused.
  32.  
  33. ;          VContrl    #10,,#2,d0
  34.           move.w    handle(a6),-(sp)    ; contrl[6]
  35.           clr.l     -(sp)                ; contrl[5,4]
  36.           move.w    d0,-(sp)            ; contrl[3]
  37.           subq.l    #2,sp                ; contrl[2]
  38.           move.w    #2,-(sp)            ; contrl[1]
  39.           move.w    #10,-(sp)            ; contrl[0]
  40.  
  41.           subq.l    #8,sp                ;* -> ptsout, intout
  42.           move.l    pxy(a6),-(sp)        ;* -> ptsin
  43.           move.l    colarray(a6),-(sp)    ;* -> intin
  44.           pea        16(sp)                ;* -> contrl
  45.  
  46.           jmp        vdicall
  47.  
  48.           end
  49.